{$O+}
{$F+}
UNIT SORTBTPU;
INTERFACE
PROCEDURE SORTBTP(VAR INFILE,
                       OUTFILE,
                       CTL_STMT:STRING;
                   VAR NUM_RECS;
                   VAR RET_CODE:INTEGER);

PROCEDURE SORTBTPW(VAR INFILE,
                       OUTFILE,
                       CTL_STMT:STRING;
                   VAR NUM_RECS;
                   VAR RET_CODE:INTEGER;
                       WORKAREA_PTR:POINTER;
                       WORKAREA_SIZE:LONGINT);

(* THE ENTRY POINT BELOW (SORTBTPL) IS NOT REQUIRED SINCE NUM_RECS IN THE
   ABOVE ENTRY POINT IS UNTYPED, IT IS HERE ONLY FOR PRIOR COMPATIBILITY *)
PROCEDURE SORTBTPL(VAR INFILE,
                       OUTFILE,
                       CTL_STMT:STRING;
                   VAR NUM_RECS:LONGINT;
                   VAR RET_CODE:INTEGER);

PROCEDURE RSBTP  (    FUNC:INTEGER;
                   VAR IO_AREA;
                   VAR IO_LEN;
                   VAR RET_CODE:INTEGER);

IMPLEMENTATION
{$L SORTBTPU}
PROCEDURE _MAINS; EXTERNAL;
PROCEDURE SORTBTP; EXTERNAL;
PROCEDURE SORTBTPW; EXTERNAL;
PROCEDURE SORTBTPL; EXTERNAL;
PROCEDURE RSBTP; EXTERNAL;
PROCEDURE _MATCH; EXTERNAL;
PROCEDURE _ASCBIN; EXTERNAL;
PROCEDURE _RES_SEG; EXTERNAL;
PROCEDURE _GETTOK; EXTERNAL;
PROCEDURE _RES_PARA; EXTERNAL;
PROCEDURE _I2A; EXTERNAL;
PROCEDURE _G_EOS; EXTERNAL;
PROCEDURE _G_FN_SEARCH; EXTERNAL;
PROCEDURE _DISP_OUT; EXTERNAL;
PROCEDURE _UL2A; EXTERNAL;
PROCEDURE _RAAT; EXTERNAL;
PROCEDURE _RJF; EXTERNAL;
END.

